home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / msds-prl / ptchds19.zoo / msdos_c < prev    next >
Text File  |  1992-02-23  |  5KB  |  246 lines
  1. MS-DOS patches to perl.
  2. Apply this patch to the standard perl source, version 4, patch level 19,
  3. using "patch -p."  Do this in the root directory of the perl source
  4. distribution.
  5.  
  6. You can cat all these patches together and pipe the output to patch -p.
  7.  
  8. Len Reed
  9. Holos Software, Inc.
  10. ..!gatech!holos0!lbr
  11. holos0!lbr@gatech.edu
  12. --------------------------------------
  13. *** msdos/msdos.c.old    Fri Jun 14 20:09:56 1991
  14. --- msdos/msdos.c    Thu Nov 14 08:56:36 1991
  15. ***************
  16. *** 1,17 ****
  17. ! /* $RCSfile: msdos.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:22:37 $
  18.    *
  19.    *    (C) Copyright 1989, 1990 Diomidis Spinellis.
  20.    *
  21. !  *    You may distribute under the terms of either the GNU General Public
  22. !  *    License or the Artistic License, as specified in the README file.
  23.    *
  24.    * $Log:    msdos.c,v $
  25. -  * Revision 4.0.1.1  91/06/07  11:22:37  lwall
  26. -  * patch4: new copyright notice
  27. -  * 
  28. -  * Revision 4.0  91/03/20  01:34:46  lwall
  29. -  * 4.0 baseline.
  30. -  * 
  31.    * Revision 3.0.1.1  90/03/27  16:10:41  lwall
  32.    * patch16: MSDOS support
  33.    * 
  34. --- 1,13 ----
  35. ! /* $Header: msdos.c,v 3.0.1.1 90/03/27 16:10:41 lwall Locked $
  36.    *
  37.    *    (C) Copyright 1989, 1990 Diomidis Spinellis.
  38. +  *    (C) Copyright 1989, 1990 Tom Dinger
  39. +  *    (C) Copyright 1990 Leonard Reed
  40.    *
  41. !  *    You may distribute under the terms of the GNU General Public License
  42. !  *    as specified in the README file that comes with the perl 3.0 kit.
  43.    *
  44.    * $Log:    msdos.c,v $
  45.    * Revision 3.0.1.1  90/03/27  16:10:41  lwall
  46.    * patch16: MSDOS support
  47.    * 
  48. ***************
  49. *** 24,35 ****
  50.    * Various Unix compatibility functions for MS-DOS.
  51.    */
  52.   
  53. ! #include "EXTERN.h"
  54. ! #include "perl.h"
  55. ! 
  56.   #include <dos.h>
  57.   #include <process.h>
  58.   
  59.   /*
  60.    * Interface to the MS-DOS ioctl system call.
  61.    * The function is encoded as follows:
  62. --- 20,34 ----
  63.    * Various Unix compatibility functions for MS-DOS.
  64.    */
  65.   
  66. ! #include <stdio.h>
  67. ! #include <errno.h>
  68.   #include <dos.h>
  69. + #include <time.h>
  70.   #include <process.h>
  71.   
  72. + #include "EXTERN.h"
  73. + #include "perl.h"
  74. + 
  75.   /*
  76.    * Interface to the MS-DOS ioctl system call.
  77.    * The function is encoded as follows:
  78. ***************
  79. *** 61,67 ****
  80.       struct SREGS    segregs;
  81.   
  82.       srv.h.ah = 0x44;
  83. !     srv.h.al = (unsigned char)(function & 0x0F);
  84.       srv.x.bx = handle;
  85.       srv.x.cx = function >> 4;
  86.       segread(&segregs);
  87. --- 60,66 ----
  88.       struct SREGS    segregs;
  89.   
  90.       srv.h.ah = 0x44;
  91. !     srv.h.al = function & 0xf;
  92.       srv.x.bx = handle;
  93.       srv.x.cx = function >> 4;
  94.       segread(&segregs);
  95. ***************
  96. *** 138,143 ****
  97. --- 137,143 ----
  98.           ;
  99.   }
  100.   
  101. + 
  102.   /*
  103.    * Just pretend that everyone is a superuser
  104.    */
  105. ***************
  106. *** 146,170 ****
  107.   int
  108.   getuid(void)
  109.   {
  110. !     return ROOT_UID;
  111.   }
  112.   
  113.   int
  114.   geteuid(void)
  115.   {
  116. !     return ROOT_UID;
  117.   }
  118.   
  119.   int
  120.   getgid(void)
  121.   {
  122. !     return ROOT_GID;
  123.   }
  124.   
  125.   int
  126.   getegid(void)
  127.   {
  128. !     return ROOT_GID;
  129.   }
  130.   
  131.   int
  132. --- 146,170 ----
  133.   int
  134.   getuid(void)
  135.   {
  136. !     return 0;
  137.   }
  138.   
  139.   int
  140.   geteuid(void)
  141.   {
  142. !     return 0;
  143.   }
  144.   
  145.   int
  146.   getgid(void)
  147.   {
  148. !     return 0;
  149.   }
  150.   
  151.   int
  152.   getegid(void)
  153.   {
  154. !     return 0;
  155.   }
  156.   
  157.   int
  158. ***************
  159. *** 174,258 ****
  160.   int
  161.   setgid(int gid)
  162.   { return (gid==ROOT_GID?0:-1); }
  163. - 
  164. - /*
  165. -  * The following code is based on the do_exec and do_aexec functions
  166. -  * in file doio.c
  167. -  */
  168. - int
  169. - do_aspawn(really,arglast)
  170. - STR *really;
  171. - int *arglast;
  172. - {
  173. -     register STR **st = stack->ary_array;
  174. -     register int sp = arglast[1];
  175. -     register int items = arglast[2] - sp;
  176. -     register char **a;
  177. -     char **argv;
  178. -     char *tmps;
  179. -     int status;
  180. - 
  181. -     if (items) {
  182. -     New(1101,argv, items+1, char*);
  183. -     a = argv;
  184. -     for (st += ++sp; items > 0; items--,st++) {
  185. -         if (*st)
  186. -         *a++ = str_get(*st);
  187. -         else
  188. -         *a++ = "";
  189. -     }
  190. -     *a = Nullch;
  191. -     if (really && *(tmps = str_get(really)))
  192. -         status = spawnvp(P_WAIT,tmps,argv);
  193. -     else
  194. -         status = spawnvp(P_WAIT,argv[0],argv);
  195. -     Safefree(argv);
  196. -     }
  197. -     return status;
  198. - }
  199. - 
  200. - 
  201. - int
  202. - do_spawn(cmd)
  203. - char *cmd;
  204. - {
  205. -     register char **a;
  206. -     register char *s;
  207. -     char **argv;
  208. -     char flags[10];
  209. -     int status;
  210. -     char *shell, *cmd2;
  211. - 
  212. -     /* save an extra exec if possible */
  213. -     if ((shell = getenv("COMSPEC")) == 0)
  214. -     shell = "\\command.com";
  215. - 
  216. -     /* see if there are shell metacharacters in it */
  217. -     if (strchr(cmd, '>') || strchr(cmd, '<') || strchr(cmd, '|'))
  218. -       doshell:
  219. -         return spawnl(P_WAIT,shell,shell,"/c",cmd,(char*)0);
  220. - 
  221. -     New(1102,argv, strlen(cmd) / 2 + 2, char*);
  222. - 
  223. -     New(1103,cmd2, strlen(cmd) + 1, char);
  224. -     strcpy(cmd2, cmd);
  225. -     a = argv;
  226. -     for (s = cmd2; *s;) {
  227. -     while (*s && isspace(*s)) s++;
  228. -     if (*s)
  229. -         *(a++) = s;
  230. -     while (*s && !isspace(*s)) s++;
  231. -     if (*s)
  232. -         *s++ = '\0';
  233. -     }
  234. -     *a = Nullch;
  235. -     if (argv[0])
  236. -     if ((status = spawnvp(P_WAIT,argv[0],argv)) == -1) {
  237. -         Safefree(argv);
  238. -         Safefree(cmd2);
  239. -         goto doshell;
  240. -     }
  241. -     Safefree(cmd2);
  242. -     Safefree(argv);
  243. -     return status;
  244. - }
  245. --- 174,176 ----
  246.